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An intermediate level language for display programing has been 
embedded in LISP 1<5. The language is intended At * basis for higher 
level dioplay languages and includes facilities for both generation rod 
anaLyaio of display information. Through the construction of a heirarchy 
of LISP functions it will b>? possible to assign a complicated nsaning to a 
scries of sioplc light pen motions, or to construct a complex picture* The 
intermediate lovel language should abstract £rc*n the light pen trajectory 
the information vhich fcheae LISP functions require end provide s basis £oi 
picture construction which offers alternatives of e*ocnditur* of space, 
tiroe* and programing effort. The first section of this memo diacuaces the 
system and gives programing examples* The details of the examples can be 
undcratood by reading the second section which dlscuuset the iapletMatation 
and the LXSP functions available. 
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I a A Sycfcoo _for_Qla p Ig y Loaffuaye Construction 

The systea provides a liin^ucgo nacnyal for the gonoretlcn of picCucv 
parts celled objects* An object cot) be any conbfnation o£ points* Uncy, 
awl characters* An object ia generated by calling the function oecros-il 
[!WI2; WSCRIPTroul described in the second aectiOQ. The t*ost coram woy 
to describo an object In to establish a ticfc point*. The act point It: 
established utilising PARAMETER* IOCV, and LOCX statements. The cr^ct 
format of these stateccnta io discussed below* An object description ic 
terminated with a STOP statement* If HAKE is T> the current description 
will be appended to the description of the last object generated. The first 
cxjr.nple, d i a p | generates a large object in this manner* 

The user communicates with a display through a light pen* As the light 
pen sveeps across Che ecreen* ita trajectory can be used in acny different 
ways* For example* it nay be vised to determine a point, a set of point a, 
or a line* Or If a subpart of the display has been defined aa an object, 
the trajectory may be simply Interpreted aa a pointer to thtfl object or a 
point on the object* The LISP function*? embedded in the display language 
facilitate acquiring the data needed to make these different levels of 
Interpretation 9 

One probleu in utilising the light pen ic to determine vhen it is near 
the screen and not Just being moved into pirce* Thia la solved by using the 
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width of the field o? view of the pan **s maoured by a tr£?Ul"4i; civaa. 
ShlJ width dccrcccea ao the prn approcchod tl;o ecrecQ end r c^n^e- doc 
is displayed whenever the field o£ vim 13 lesi* uhan u cartcia iMDajibelilo 
liai-t* This pen dicCcsjce £j available to T,I3P< 

ThG approach of the pen to fie object io c ousidcrod nignlficfirit. 
Just bens clone tho pen vu&t ccm before bcire noticed la ft program variable* 
Its cost recent pooition within this distance id recorded; f;i addition, jo 
are the last 5 such positions, each at least a prescribed distance f:a: the 
preceding one* this represents c crude way of gradually fargettln;; the 
details of the past* It is dleo possible to get the current cojrdiar.i:JS o£ 
the pen, obtain o list ox ell ob'jectr; currently aeon by the pen, to report 
Hhm the pen gccs on object with d naoc o&bor tlica a glvon nnoa* or to require 
on object to move with the pen-. 

The oxac^lc Emotion speech i» a LISP function lulng several of these 
features. The function uses * subroutine to display SlVO different light 
buttons* I£ the li^ltt pen i3 held near otq of these buttons » the tracking 
cross will be centered about the point whore the pen is soon* The proSreo 
iuterpreto pointing at those buttons to mesa I) dn« a line, 2) cnovo a line* 
3) doloto a line, ft) suppress the erect and 5) return control to the 
telotype* To d~au lines touch the ...rat button, a new line will then be 
dim whenever the pan leaves the screen and then return* i This process i* 
teralnated whenever the pen returns noav one of the light buttons, Additional 
X.I3P functions could be written to e;q>*nd sketch into a program o lull .11* to 
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SKETCH SAB* 

Often one vanta to cormunicctc Co the dicplny certain becic Folios t.hich 
arc to be used in constructing larger units. These inputs night be o set 
of letters ^hich arc to bo period in-o a sentence; ov they m.fghfc be a ret 
o£ circuit o?.coocta or ouoic aytebolc* En SKETCH PA!) thin is done by 
indicating the ■-.'[■■" :: - -•--'- end then raovinj the light Don go thac Che 
parameters of the forn, tho end points of c line aeggent fox instance, can 
bo ntjstractod £roia tho trajectory* Alternatively, one could abstract both t^c 
type and the par^mete^c from the trajectory^ The example pro;. :. r . a rguo 
uHB a method developed by Telteloian t?hich enables the user to teach the 
nachlne to replace a single line by a Uno™ fora* A line is ft single 
Liovenent (howavur complex) on the curfacc of the display without lifting the 
pen* The LISP date structure ic convenient for storing properties o2 the 
iortts to bo recognized* 

The parsing of vevy large displayed npzwalOMi such ao LISP 
$«■ oppressions £or exawle, cen be difficult for people* Furthermore, 
ihere tzcy be alternative parcinga. people ccn be aided by intensifying » 
u?on request * srrxraatical subexpressions or sub-objeots containing referenced 
MgcantQ or by providing additional displays tr.ooninsfu?.ly related to the 
first Oicplay* These pight be rotated views of an object or shaded objects* 
yurfihor development o£ the nystun is needed In this area* 

It io tho task of the prograttazar to orgaolse s program and dato base in 
such a my that the irscst needed inputa to a oochiao will have short repre- 
sentation! ind the aost needed coeiputatione will be efficient. The 



combinatorial aapecto are such that this sust be done through a acvica of 
levels o£ concepts, to irspovtent point Is that It is not possible to 
complete on entire level at n tine. The aost uacful concepts at a given 
level only beccaae clear with the exploration of higher levels* The 
ei^loralion of higher levels without intermediate concepts is* houevev, 
almost lupocoibly tedious, tt is iopo^ant in an experimental situation to 
have a syatca where cms can cake changes to any desired depth and provide 
for the irregular growth and reorganization of the data b£uc. 

In the present diaploy system, esporlocntafcion will probably Indicate 
that new statooonts for pacrosal arc needed, or thot certain objects occur 
so o£tcn that more procramaing effort could veil be spent in gcneratitig them 
efficiently* To provide for these possibilities nsscrosal has been programed 
as a oyntactic extension of the ^copc assembly JMCuage, sq l* Sal. l£ a 
LISP function which creates objects frco lists of octal numbers. It is 
descril>ad In detail in port II* Provision has also been made for the 
addition of machine language subroutines which altor the objects as they ere 
displayed • Furthermore* the syatca la organized so that no ctatcmanta 
need be oadc about features of the display language which arc not needed. 

By embedding these display facilities in LISP one makes available a 
wealth of caechenisms which have proved useful in the analysis and generation 
of language and in the development of systems which can be increased 
incrementally in complexity* 
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*i* ,Kp A c . 3 y n .Kft t -.:5n 

The (1M of LISP In Chit eyfifcera has two di3t5.nct dicadv*rv:tigCG, Pi<**;t, 
it is net possible to interrupt the LX£P oyotem at cay point in bice a;id 
itttteditftely employ its full power. It may bo in the midst of sarbtigc 
collection, Garbage collection with tho current version of PPP-6 F.X3P 
reeuiree a noticablc tinsc. Second* the data types are too litittcO- It 
to not conveniens Co set up Che type of list structure usert In CKEtCIi PAD* 
but thlft can be approximated* A serious problem is the inability to get 
aside blocks of registers to contain display instructions end to store 
in£onaction About light pen actionem 

To set cround thece problcac n fined buffer of 2046 vordd hue been 
3et aside for description of the display. All cctnnunication between LISP 
cik; tho display goes thzouch thic buffer* This buffer cDutaino two kinds 
of data otrueturcn; display lists and headers* One header is associated 
•*ith each display list, ^*ich Is o list of half word coraaodo for the 
display* The headers build down fro* the top of tho buffer and the display 
lists build up frora the bottom* 

During display m Interrupt touting cycles through a dispatch table. 
Despatches csn occur to a pen track routine, o routine Milch displays the 
contonts of the display buffer, a line deming routine, end a routine which 
terminates the display,, 

the pen track routine displays s cross as vas described earlier. In a 
c+udc effort to jji^e tho routine enough display time eccb cycle, it is called 
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between display of each object in the display buffer- Uc£ of the clock 
would be bettor* 

The fOnHfi of the headero in the display buffer ic an foUoua* 



A " OW-OFF bit 



B = Tracking Cross juap bit 



C ■ Move with pea bit 
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Figure 1 



Header Forcft 



Each display list has a uacse which Id kept is the first trord of ice 
heeder. flhon en object is referenced by b LISP function, the headers are 
searched for one with the naac contioaed. 

The Interrupt program cycles through the he$ticro* It picks up a 

pointer for a BIKO instruction free the tigh'- half of the second vovu of 

each header- This E1S0 la terminated by a STOP instruction ot £he cad of 

each display list* If the subr address to not 0» then the subr at this 

address will be c^ccuuad when the STOP ia reached. 
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If the light pen is scon during display of sodc display lir.t* contra! 
gocfi immediately to an interrupt prugrcm* Several conditional branchings 
cor. occur within this program. The interrupt program fJ.rst re*ctiepl«ye the 
display list C3 £ check ogninst Xiglit pen noise* If the pen is seen a 
second time the pen cross movable bit is checked* If this bit is a 1 tho 
pen tracking croso is centered obout the point dtcrc the l^ht pen vac seen 
and the rest of the display list is displayed* Otherwise, a check iz cede 
to see if the censor of the pen cross is ulthin a cpecified minimi??! distance 
of the point cezn* If not.* the display list is continued with the Light pen 
reensblcd* If the pen is close enough, the coordinator of the point seen 
ere atorad in the fifth vord of the hecder* The Last five words of the 
her.der contain tho coordinates of points seen by the pen in the past* Each 
of these histor y oojp'c s is ct least a specified distance from the preceding 
one* This distance is in tho left half of the third word of tho header* Whe 
a am point i3 seen, it is added to the history points if It Is far enough 
sway from the one most recently stored or if there are ncne. The number 
of history points is kept in the right half of the third word of the header. 
This ntrcber can be cc f : to nco by LISP, Whenever there are acre than five 
history points the oldest one is lost* After tho point seen has been 
appropriately stored, a check is cade to Me if the object should oove with 
the pen* If bit C is set, a pointer to the display Hot is transmitted to 
the pen track routine. The display list is then finished. 
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Dicplay lic-o are put into the buffer by the sal languoRo* 12 a 

line is to be ;'~r\s? vlch the pen* A cot point for the Kivi Is created with 
the .Ml language* Ita display llct la then iocmnontad by the line drawing 
routine. This incrottentooa is terminated vhen the pen leaves the kico»h 

DISPLAY FUNCTIONS 

icacrosal[X;T] i*\icro/:aX Inte^rctc Itc arguu^nto and uh*m 

oallo jjfij. on the result. X £s the Slrot 
argument Cor solo Y is 4 description of a display 
Hoc for sal, Y la a list of Hate, each of 
vhich la a macro. The first word of each macvo 
lo on ^tou which haa under the property ittCROSAL 
a Junction of on* argument* cacrosal gees this 
Amotion and applies It Co the ruolndcr of the 
macro list* *£hc result of this function io a 
Xiot for 3sl_ bc3lnoing and trading In code U 
Thio lint is prefaced by two Integers which 
glvo respectively the aodc th/it th* display 
will cad up In and the oode In vhlch It cufit 
begin, if it Is to interpret this list correctly.. 
taacrpaal appends the successive macro expansions , 
using the prefacing Integers to ersatz tht proper 
linking of raodco. 
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tlto ayitCcn: 

U <PAS£l&?::a paucnsMc acato &utC2S&Cy) 

Socially the f&rct ii'ord : r .n 3 s^C *»'iiit» 
Chid ctctCKOnt creace3 a paromtoi: word*. If 
pcaciustlo, scaXo a or Intensity i^ lilL* t\\o 
corresponding field o£ tho p: vattotar wrd ifl 
not cuzblcc* 

2 rf <IflCY n) 

Crestec a non-<Hfplnyir$ Y point uoxi) which 
ccts the Gcope Y coordinate to n< TUic tc 
nfmmilXjr the second ofcafcetwnt In *: act points 

3» (MCS n) 

Cwofcaa s non-fli'iplaytag ;[ po£ut word which 
sete c::c scope X coor^inafto to H, Thic is* 
norr-ciXJy the third &ik! lasts ctratcrncnt In o set 
point „ 

ft* (SB?) 

Creates a iwrai&cCcr word with fltop enabled. 
This ;,3 aonully Cho last vtataoenC io a dicplny 
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5, (ISTOP) 

C::o&tos n parameter vovd with stop caablotf 
und a iios that the previous :;ord Usa ;i breakout 
bit, The uac of ISTOP 19 explained In the 
description o£ sa£ vhicfa follot:o* 

Croatec a displaying Y poiut \;ozd which r^cta 
the display Y coordinate to n end displays a 
point* 

7, (LOCXD n) 

Create© a displaying X point word which seta 
ulto display X coordinate to n and displays a 
point, 

8. (LHU! x x v t — x c v n ) 

Creates a sequence of non-dl&p laying line 
segments frocn vector vordtu The display at«rto 
At the l^iot point displayed or cot by I£CX> LOCY. 
Each Iwreneftt hao cist x ■ x. 



fc i+l ~i f 






9* (leted Xj y x — x R Y n ) 

Croctea a lino llki LUffl. but dicplayo it* 



■ * 
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10. (UX1QLXKB K l T x Xj Yj) 

Cx«*C» a oan-ill splaying v«s'or Mb&lniw 

. vo?d. A line wil> be Aram froa the current 
* 

display coordinates to the edgv of th* display* 
The elope of the lin* it OfjOYO/Cx.-JL). 

Preatet a Line like* LCNCLUJH, but CUfplaye 
' ■ * - 

U< (caw z — « x > 

* 

Cr&etto a display o£ GtWTMttt vede vurfir 
vhteh are the FHAM&'i gf the atcai fcr. So space 
Ate Lne srtewJ bitvten tht PNAMTC'a. 

e*l[3C;Y;ZJ X io the nuae of the display Hat to be rreetA-l, 

or 3- Xf X I* T 3 thM thin !iet is a^pMd»d to 
tlie lart one created. If the previous liftt and* 
In STtf? (3D00-), th« ST&* Is virwtd. IJ It ?^c 
in I3I0P (403000^5, It not only removes -.Mis fen 
g*rc* the or^akout bit (400000a) In th* provlcja 
h*:i ttc^a Tf ie a dwcrlprlon o€ r^c list to St 
created. Tiere era two Joratfi for th« aluutbtf r# 
* corresponding to twe nodes Cor tho aeaaeftly 
function eel. The faocrim la initially in oath 
In trod* J gal removes '£?ts ox atonic, two it s 
i* fwa t. Kach atoai is & m^ibfls or \; be*-* 
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In mode t sal removes lists o£ atcsu;} fcitf ci. a 
titto, .'r:::. v , JSsch otcn ic o nu&sbcr or i^ baund 
to one on ebo ciotfccd pair list Z. For each pair 
oE lists pjI fores ono display holf wor<! toafiFjc- 
tion by shifting the numbers on the oecom* l\st 
the numb or o£ places specified by the covrcnjoiuv* 
Inc number on tho first liat w When Ac tmccuu6c?0 
MIL on V> it goas into mode 2* la rare!© ? ca^T 
takes numboro or non- numerical QtomQ one at a ti^e 
from Y* Sach nunber is a display half word. If 
a nou-nunerical atcm is encountered, gflj looks at 
the previous nu&ber to see i.* it puts the display 
into increment or character rode* If in character 
itodo, snl i assembler the THAME of tho atom as 
characters* If in increment mode, col gets a list 
of full vords off the atom's property list vith 
the Indicator SCHAR. It assembles irheee as incro- 
nent iBOdo half uords* Consecutive non-numerical 
atoms are assembled together in the same mode. 
When gal ^inds a number > the breakout bit is set* 
If sal finds NIL, it returns to naodc 1* Mode 1 
ip mora flexible and code 2 is c#rc economical, 
HIL is not a legal object name* 
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HORE FUUCTIOKS 
Ir. tho description below S stand* Tor the naae o£ an object with s set 
point. W *toiu!s lor the Miao of an object with or without a cet points 

ar,(S] Returns the current x coordinate of S. 

sy[S] Returns the current y coordinate of S- 

smv[S] M^kec object S follow the light pen whenever 

S sees It, Returns S- 
sunovtSl Kegatca aarv. Returns S. 

sxyinc[S;X;Y] Increments the set point c^ordinntoc of S by 

X»Y* Returns 3* 
aclrl ) Clearc the display buffer. Return .;:L. 

sdlfclw] Deletes object tf froa the display buffer and 

returns V. 
ptrk[X;Y] Starts the pen trackiag crocs at X,Y find returns 

NIL. 
puntrkl J Stops the display of the pen track crocs c 

Returns NIL. 
pxt J Returns the x coordinate of the pen* 

py[ ! Returns the y coordinate of the pen. 
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ptchpl J Returns ML i? the pen la Cm 1 £vo» the f crura. 

aru[ 1 Starts the display build up fu the buffer* 

DiepXs; will continue until minrnf J ic called 

sunml ] Stops tbo display and returns I<IL* 

plduJXjY] To use this c :-.■ ■::/!, ..: * MB Cflgfl l to set tip 

a set point *»t the current pun position followed 
by a zero length rclativo line *ntJ torctlnated 
with JETOP* Then call pldw P Zooiwwts of 
length ct least X and scale X will be added to 
th la otjoct until the pen Icjyoo the screen. 
Returns NJL* 

phclr[t*J Clears the ptri approach history points of object 

W and returns U, 

ph[H] RiTturav a list of the pen approach history points 

for object W, 

phcl[V;X) Scto to X the ptfnlaun diaterca bebv*w pen 

oppnacfa history points for object U. JC is on 
taCegOT betvtm and 102C. 

phc2[X} Seto to X the taioinum distance between pen approach 

history points which ic eeaused for newly created 
objects- 
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phc2[Xj 



sint(W;Yl 

sccpy(WI » W2J 
pUhl ] 

«ecl[W;Y] 

pll;v(U] 

ptchwt I 



Sets to X the r*uxl :uu dict^nco en the sercen ct 
which the pen can see an object X is on '.ntc&c 
bcrtuoen and 40. 

Sets to Y the intensity of object ^ Returns U. 

V Id en Integer between *nd 7. 

Copies object Wl and nacaes the copy W?, p.oturaj 

Returns a list of all objects currently being 
oeen by Che pen. 

Seta the scale of object If to Y. Returns W# 

Y is an integer between and 3* 

Returns the name of the first object other Chan 
W seen by the pen. 

Waits until the pen is rear the screen and then 
returns MIL* 



puntchttl J 



Waits until the pen Is not near the screen and 
tbco ntuni HIL< 



PiplB) 



prajp[M] 



If the tracking cross is not following the pen 
and pjp[W] bos been executed, then when the pen 
sees object W, the tracking cross will be centert 
about the point of W seen. Returns W, 

negates pjp and returns HIL. 
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poh( ] Returns Che name of the :.. :■_>■■ recent object - -> 

b* seen by the pen or NIL if none have been seen 
oiuce poh c van executed* 

pohc[ ] Sets the lest object oeen by the pen to HIL E 

Returna HIL, 
slineES] Returns a list of the coordinates; of the end 

points o* the line segments Jiich atka up object S< 

*subr[W;Yl Ceuseo che subroutine beginning at location Y 

to be executed each tirac object R is displayed. 

alcc[W] Intensifies o aubexpreasion of object W which la 

indicated by the light pen* Suboxprosaions are 
marked in the object by pcoudo parentheses which 
are not displayed,, A pseudo left parcn is 
indicated by the parameter word 600001* snd a 
pseud o right p&ren by the parAc^ter word 600002 ft , 

seddivj Counts the number of psoudo left parena to the 

intensified subpart of w* 
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(PR1NDSF DISP MV EXPONO) 

(OEFLIST ((OISP (LAMBDA (N) (PROG (U V) (MACROSAL (QUOTE OISP) ( 
QUOTE ((PARAMETER 12 5) (LOCY 1) (LCCX 1) (LINED 0) (ISTC 
P)))) (SETO U (EXPAND N NIL)) A (COND ((NULL U) (RETURN NIL))) ( 
MACROSAL T (LIST (COND ((EQUAL (CAR U) (QUOTE U)) (QUOTE (LINED 
U))) ((EQUAL (CAR U) (QUOTE D)) (QUOTE (LINED 777777 
77777<l))) ((EQUAL (CAR U) (QUOTE L)) (QUOTE (LINED 7777777/7 
774 0))) (T (QUOTE (LINED OH 0)))) (QOOT-2 (ISTOP)))) (SETO U 
(COR U)) (GO A))))) EXPR) 



(OEFLIST ((MV (LAMBDA (X) 
Q X (QUOTE D>) (QUOTE U)) 
I)))))) EXPR) 



(COND UEQ X (QUOTE U)) (QUOTE 0)) ((£ 
((EQ X (QUOTE D) (QUOTE R)) (T (QUOTE 



3 

(PRINDEF EXPAND) 

(OEFLIST ((EXPANO (LAMBDA (N EXP) (PROG (A B C D E) (SETQ EXP (Q 

UOTE (U R R))) START (COND ((ZEROP N) (RETURN EXP))) (SETQ N ( 
PLUS N -1.0)) LOOP (SETQ A (CAR EXP)) (SETQ EXP (COR EXP)) (SETO 

B (CAR EXP)) (SETQ EXP (CDR EXP)) (SETQ C (CAR EXP)) (SETQ E (NCON 

C E (LIST B A (MV B) A A B C B (MV C) B C C (MV 9) C B 0))) (CON 

D (EXP (GO LOOP))) (SETQ EXP E) (SETO E NIL) (GO START))))) EXPR 
) 
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(PRINDEF SKETCH) 

(OEFLIST ((SKETCH (LAMBDA (N X) (PROG (U Hi (CONO (X (GO A))) (P 
JP (BUTTON (QUOTE S) 10* 1703)) (PJP ( 3UTT0N (QUOTE :» 3*40 1.70*) 
) (PJP (iKITTON (QUOTE M) 500 1700)) ( 3UTT0I1 (QUOTL" P) 703 I7g0) 
(PJP (BUTTON (QUOTE R) 1100 1700)) A (POHC) (SETQ 'A (PL'W NIL)) 
3 (COND ((MEMBER W (QUOTE <D M))) (00 C>) ((EQUAL W (QUOTE £)) ( 
GO G)) (( EQUAL W (QUOTE R)) (GO H)) ((EQUAL H (QUOTE P>) (fiO I)) 
((EQUAL U (QUOTE M)) (GO £)) ((EQUAL U (QUOTE 0)) (SOLT U))) <<1 
A) C (SOLT U) (SETQ U W) (BUTTONON M) (SETQ W ( PLHW W) ) (GO D) 
E (SMY W) (PUNTCHW) (SUNMV W) (GO A) G (SOLT U) (BUTTONON W) (S 
ETQ U M) (PUNTCHtf) (PTCHW) (COND ((GREATEUP (PY) 1600) (GO A)) 
) CLINEDRAW (QENSYM) N 1) (GO D) II (SOLT U) (RETURN NIL) I tSOLT 
U) (SETQ U ;V) (BUTTONON W) (PUNTRK) (GO A))))) EXPR) 

S 

(PRINOEF LINEDRAW BUTTON BUTTONON 8UTT0N0N1) 

(OEFLIST ((LINEDRAW (LAf48DA (NAME QUALITY SCALE) (PROG NIL (PTCH 

W) (SAL NAME (APPEND (QUOTE ((0) (0) (0 *))) (CONS (LIST 31.111* 5 

CALE) ICONS (LIST 0) (APPEND (CONS (LIST (PLUS 22?0p$ (PY))) (CO 

NS (QUOTE (0)) (LIST (LIST (PLUS U**M CPX)))))> (QUOTE ((0) U 

00000) (0) (3000))))))) NIL) (PLOW QUALITY SCALE) (RETURN NAME)) 

))) EXPR) 

(OEFLIST ((BUTTON (LAMBDA (NAME X Y) (SXYING (SAL NAME (QUOTE (( 
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9) (0) (0) <3fcllO (0) (220901) (0) UU000) (0) (2000X0) (0) (5 
(0) (200210) (0) (60!i390> (0) (300f())) NIL) X V)))) EXPR) 



(OEFLIST ((3UTT0N0N (LAMBDA (NAME) (BUTTONON1 NAME (SX NAME) <SV 
NAME ))))) EXPR) 

(OEFL1ST ((BUTTONON1 (LAMBDA (NAME X Y) (SXYING (SAL NAME (QUOTE 

((fi) (0) <0) (3411*1) (0) (220000) (0) UU000) (0) (704010) (0) 

(3000)?) NIL) X Y)>)> ESPR) 

3 
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(PRINDEF ARGUS MAKSTRING MAKSTRING1 MAKSTRING2 
MAKSTRINGS) 

OEFLIST (C ARGUS (LAMBDA NIL (PROG (U V R Q MERGELIST NQ) CSETQ 
U (LINEORAW (QUOTE ARGUS) 2 1)) (PUNTCHW) (SETQ V (MAKSTRING (SL 
(HE U))) CSETQ R (MAP2 V ATREE3 (QUOTE GETC))) (MAP2 AWEIGHTS R 
(FUNCTION (LAMBDA (WEIGHT LIST) (MAP LIST (FUNCTION (LAMBDA (CAN 
DIOATE) (SETQ MERGELIST (MERGE3 MERGELIST)))))))) (COND (CNUlL M 
ERGELIST) (GO A))) (SETQ NQ (CDAR MERGELIST)) (SETQ Q (CAAR MERG 
FLIST)) (MAP MERGELIST (FUNCTION MERGED) A (SDLT U) (MACRO SAL ( 
QUOTE LAST) (LIST (QUOTE (PARAMETER X 3 3)) (LIST (QUOTE LOCY) A 
YMIN) (LIST (QUOTE LOCX) AXMIN) (LIST (COND ((GET Q (QUOTE SCHAR 
)) (QUOTE SCHAR)) (T(QUOTE CHAR))) (COND ((NULL Q) (qUOTE ?)) ( 
T Q))) (QUOTE (STOP)))) (COND ((NOT (EQUAL AMODE (QUOTE TRAIN))) 
(RETURN Q))) (PRINT R) (SETQ U (READ)) (COND ((NOT (EQUAL Q U)) 
(GO B))) (CSETQ AWEIGHTS (MAP2 AWEIGHTS R (FUNCTION (LAMBDA (X 
Y) (COND ((MEMBER U Y) (PLUS X D) (T X)))))) B (CSETQ ATREES (M 
AP2 V ATREES (QUOTE PUTC))) (RETURN U))))) EXPR) 

(DEFLIST ((MAKSTRING (LAMBDA (LINE) (PROG (U V MIN MAX VI V2) (M 
AKSTRING2 ( EVERYOTHER LINE)) (CSETQ AXMIN MIN( »MAKSTRING2 (EVER 
YOTHER (CDR LINE))) (CSETQ A YMIN MIN) (RETURN U))))) EXPR) 

(DEFLIST ((MAKSTRING! (LAMBDA (X) (COND ((GREATERP (CAR X) V2) ( 
LIST NIL (MAKSTRING3 X NIL))) (T (LIST (MAKSTRING3 X NIL) NIL))) 
))) EXPR) 

(DEFLIST ((MAKSTRING2 (LAMBDA (X) (PROG NIL (SETQ MIN (CAR X)) ( 
SETQ MAX (CAR X)) (MAP X (QUOTE MINMAX)) (SETQ V (QUOTIENT (PLUS 
MAX (MINUS MIN)) 3)) (SETQ VI (PLUS MIN V)) (SETQ V2 (PLUS VI ( 
QUOTIENT V 6))) (SF.TQ U (APPEND (MAKSTRING1 X) U)) (SETQ VI ( PLU 
S VI V)) (SETQ V2 (PLUS V2 V)) (SETQ U (APPEND (MAKSTRING1 X) U) 
) (RETURN NIL))))) EXPR) 

(DEFLIST (CMAKSTRING3 (LAMBOaUx LEFT) (COND ((NULL X) I) ((OR ( 
AND (.EFT '.GREATERP (CAR X) V2$) (AND (NOT LEFT) (GREATERP VI (CA 
R X)))) (PLUS 1 (MAESTRI NG3 (CDR X> (WU LEFT)))) (T (MAKSTRING 
3 (CDR X) LEFT))))?) EXPR) 
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(PRINDEF MAP MAP2 SUB1 EVERYOTHER MINMAX MERGE 1 
MERGES GETC PUTC) 

(OEFLIST ((MAP C LAMBDA (X FN) (COMD ((MUL X) NIL) (T (CONS (F'J 
(CAR X)) (HAP (CDR X) FN))))))) EXPR) 

(DEFLIST ((MAP2 (LAMBDA (X Y ON) (COND ((NULL X) NIL) (T (CONS ( 
FN (CAR X) (CAR Y)) (MAP2 (COR X) (CDR Y) FN))))))) EXPR) 

{DEFLIST ((SU31 (LAMBDA (X) (PLUS 687191.76755 X)))) EXPR) 

(DEFLIST ((EVERYOTHER (LAMBDA (X) (COND ((OR (NULL (CDR X)) CNUL 
L (CDDR X))) (LIST (CAR X))) (T (CONS (CAR X) (EVERYOTHER (COOR 
X)))))))) EXPR) 

(DEFLSST ((MINMAX (LAMBDA (X) (COND ((GREATERP X MAX) (SETQ MAX 
X)) ((GREATERP MIN X) (SETQ MIN X)) (T NIL))))) EXPR) 

(OEFLIST ((MERGE! (LAMBDA (LIST) (COND ((GREATERP (CDR LIST) NO) 
(PROG2 (SETQ NO (CDR LIST)) (SETQ ) (CAR LIST)))) (T NIL))))) E 

XPR) 

(DEFLIST {(MERGES (LAMBDA (MERGELIST) (COND ((NULL MERGELIST) (L 
1ST (CONS CANDIDATE WEIGHT))) ((EQUAL CANDIDATE (CAAR MERGELIST) 
) (CONS (CONS CANDIDATE (PLUS WEIGHT (CDAR MERGELIST))) (CDR MER 
GELIST))) (T (CONS (CAR MERGELIST) (MERGES (CDR MERGELIST))))))) 
) EXPR) 

(DEFLIST ((GETC (LAMBDA (PSTRING TREE) (COND ((NULL PSTRING) NIL 
) ((NULL TREE) NIL) ((ZEROP PSTRING) (CAR TREE)) (T (GETC (SUB1 
PST:ING) (CDR TREE))))))) EXPR) 

(DEFLIST ((PUTC (LAMBDA (PSTRING TREE) (COND ((NULL PSTRING) TRE 
E) ((HULL TREE) (COND ((ZEROP PSTRING) (LIST (LIST U))) (T (CONS 
NIL (PUTC (SUB1 PSTRING) NIL))))) ((ZEROP PSTRING) (COND ((MEM3 
ER U (CAR TREE)) TRES) (T (RPLACA TREE (CONS U (CAR TREE)))))) ( 
T (CONS (CAR TREE) (PUTC (SU81 PSTRING) (CDR TREE)))))))) EXPR) 



